NY Times US States COVID-19 Analysis

NY Times US States Data Analysis

• GitHub: https://github.com/nytimes/covid-19-data.git

## `summarise()` ungrouping output (override with `.groups` argument)

## `summarise()` regrouping output by 'state' (override with `.groups` argument)

## `summarise()` regrouping output by 'state', 'county' (override with `.groups` argument)

db <- dbConnect(SQLite(), dbname="../COVIDDB/COVID.sqlite3")
shutdown <- dbGetQuery(db, "SELECT * from shutdown;")

sd <- shutdown %>% ggplot() + geom_col(aes(x=Delay,y=reorder(State,Delay))) +
  labs(title="Elasped Days from First Confirmed Case(WA)",
       x="Delayed in Days",y="US States(and DC",
       caption ="(Shutdown Dates = https://www.nbcnews.com)")
ggplotly(sd)

## Warning: Removed 5 rows containing missing values (position_stack).

## `summarise()` regrouping output by 'date' (override with `.groups` argument)

## `summarise()` regrouping output by 'date', 'state' (override with `.groups` argument)

Summary of Cases,Deaths and Death Rate by Date

## Warning: `arrange_()` is deprecated as of dplyr 0.7.0.
## Please use `arrange()` instead.
## See vignette('programming') for more help
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_warnings()` to see where this warning was generated.

Summary of Cases and Deaths by State

Summary of Ohio Deaths and Cases

statesSum <-us_states %>% group_by(state) %>% 
  summarise(
    tc = sum(cases),
    td = sum(deaths)) 

## `summarise()` ungrouping output (override with `.groups` argument)

ggplot(statesSum) + geom_point(aes(x=tc,y=state,size=tc,col=tc)) +
   scale_x_continuous(labels = scales::comma) +
  labs(title="Total Cases by States",subtitle="(As of May 18, 2020)",
       x="Total Cases",y="US States")

ggplot(statesSum) + geom_point(aes(x=tc,y=state,size=td,col=td)) +
  scale_x_continuous(labels = scales::comma) +
  labs(title="Total Deaths by States",subtitle="(As of May 18, 2020)",x="Total Deaths",y="US States")

dbDisconnect(db)